home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / OKHAND.PRG < prev    next >
Text File  |  1994-10-12  |  1KB  |  50 lines
  1. PROCEDURE OKHand
  2. *----------------------------------------------------------------------------
  3. * NAME
  4. *   OKHand - Generic OK Button handler
  5. *
  6. * DESCRIPTION
  7. *   Closes the form and sets the form's Action custom property value .T.
  8. *----------------------------------------------------------------------------
  9. #include "talkoff.hdb"
  10.  
  11.     PRIVATE lClose, lVoid, oForm
  12.  
  13.     oForm = m->Form                     && Save the Form object reference
  14.                                         && in case InfoMsg is needed.
  15.     lClose = .T.
  16.  
  17.     Form.Action = .T.
  18.     IF TYPE( "Form.CurrMast" ) = "C"
  19.         SELECT ( Form.CurrMast )
  20.         lClose = SubmitFm( m->Form )
  21.     ENDIF
  22.  
  23.     IF m->lClose
  24.         lVoid = oForm.Close()
  25.     ENDIF
  26.  
  27. #include "talkon.hdb"
  28. RETURN
  29. *-- EOP: OKHand
  30.  
  31. PROCEDURE HelpObj
  32. *-----------------------------------------------------------------
  33. * NAME
  34. *   HelpObj - Displays user-defined help, if any, for this button.
  35. *
  36. * DESCRIPTION
  37. *   This routine is required here because you can have only one
  38. *   ProcFile reference per object.
  39. *
  40. *-----------------------------------------------------------------
  41.     IF This.ClassName # "MENUITEM"
  42.         DO HelpDspy WITH m->This
  43.     ELSE
  44.         IF TYPE("Form.ActiveControl()") = "O"
  45.             DO HelpDspy WITH Form.ActiveControl()
  46.         ENDIF
  47.     ENDIF
  48. RETURN
  49.  
  50.